home *** CD-ROM | disk | FTP | other *** search
/ Gold Medal Software 2 / Gold Medal Software Volume 2 (Gold Medal) (1994).iso / comms / dialers.arj / CS3820.T < prev    next >
Text File  |  1993-12-25  |  3KB  |  94 lines
  1.     ::    cs3820.t    AT&T Paradyne Comsphere 3820
  2. dialnum        
  3.     pat; pat 9l OK
  4.     put "ATE1S0=0\r";  wait -f2
  5.     if "!9"  gosub waketb    :: get modem to respond
  6.     put "AT&F&D2&C1V1X6S0=0S7=45&T5\045C0\\N1\\Q0\r"
  7.     wait -f2
  8.     put "AT"
  9.     if js2,a_mnp put "\\N5\\Q3"
  10.     else if js2,mnp put "\\N4\\Q3"
  11.     if js2,_s put "\\Q1 "
  12.     if js2,v22 put "S41=7 "
  13.     if is5,300 put "S41=11"
  14.     if is5,1200 put "S41=8"
  15.     if is5,2400 put "S41=6"
  16.     if is5,4800 put "S41=5"
  17.     if is5,9600 put "S41=3"
  18.     if dp ss s2 "(c:)(.*)";  if %z2 put "%z2 "    :: for extra commands
  19.     if "%s3>8" put "S7=70"        : longer wait if long distance
  20.     put "Q0S10=10V1\r"; wait -f2
  21.     :::if %s1  if !Js1,s handshake slow; lput "Handshake SLOW: "
  22.     if %alds if ps3,0 putw "ATS8=10\r"
  23.     put "%mprefix";  put "%s3%alds";  dis -Q
  24.     if js2,man put ";\r"; echo "Hit F1 when Tone is heard"; t; put "ATD"
  25.     put "\r";  dis -t
  26.     if "js3,;"  accept s1 "Lift Telephone Receiver, Hit ENTER"; o; return
  27.     pat 1 "CONNECT\r"; pat 2l "NO CARRIER"; pat 3l "BUSY"; pat 4 RING;
  28.     pat 5l "ECT 1200"; pat 6l "ECT 2400"
  29.     pat 8l "NO DIALTONE"; pat 10l "CONNECT 300"
  30.     pat 11l "CONNECT 9600"; pat 12l "CONNECT 19200"
  31.     pat 13l "VOICE"; pat 14l "NO ANS"; pat 15l "CONNECT 4800"
  32.     pat 16l "ECT 7200";  pat 17l "ECT 12000";  pat 18l "ECT 14400"
  33.     pat 19l "ECT 16800"; pat 20l "ECT 19200"; pat 21l "ECT 38400"
  34.     pat 22i "ERROR"
  35.     wait -f72
  36.     while "4&&!L>3" wait -f40    :: wait for a few rings only
  37.     sets s8 %y2
  38.     if "n||8||9||2||3||4||13||14|22" goto sorry
  39.     dis -d
  40.     if dd while "!c&&L<20" sleep 1    : For modems with slow carrier det
  41.     :: if dp estimate 0 300;  if "hCONNECT" ss y "[0-9]+";  estimate 0 z0
  42.     if "hCONNECT" ss y "[0-9]+";  estimate 0 z0
  43.     if "hCARRIER" ss y "[0-9]+";  estimate 0 z0
  44.     if !%s1 goto ns1
  45.     if !Js1,s handshake slow; lput "Handshake SLOW: "
  46.     echo "Speed Locked"; goto mm2end
  47. ns1:    if "h/EC" echo "MNP Connected";  handshake both; goto mm2end
  48.     if "hV42" echo "V.42 Connected";  handshake both; goto mm2end
  49.     if "hMNP" echo "MNP Connected";  handshake both; goto mm2end
  50.     if js2,mnp set s2 ""
  51. arq:    if "1||10" if is5,450 sp 450; echo "450 bps"; goto mm2end
  52.     if "1||10" sp 300 goto mm2end
  53.     if 5 sp 1200 goto mm2end
  54.     if 6 sp 2400 goto mm2end
  55.     if 15 sp 4800; goto mm2end
  56.     if 11 sp 9600; goto mm2end
  57.     if "12" sp 19200; goto mm2end
  58.     if "18" sp 19200; goto mm2end
  59.     if "19" sp 19200; goto mm2end
  60.     if "20" sp 19200; goto mm2end
  61.     echo "Unknows Connect Message!!"
  62.     return
  63. sorry:    echo "No Connect Message Detected."
  64.     return
  65. mm2end:    set s9 "y"
  66.     return
  67.  
  68. call2    bye; sp 38400
  69.     gosub waketb; pat 1 OK
  70.     put "ATH0 M0 S0=1 \\N5 \\Q3\r"; wait -f2
  71.     handshake on
  72.     return
  73. call1    bye; bye; sp 38400; handshake off; gosub waketb; putw ATM0H1\r"
  74.     return
  75.  
  76.  
  77.     : initializes the NVRAM 
  78.     : "call init,aa" for Unix or VMS dial-in (NOT YAM HOST OPERATION!!)
  79.     : "call init,cela" for answering cellular calls
  80.     : "call init,aa,cela" for Unix/VMS answering cellular calls
  81. initmodem
  82.     echo "Initializing AT&T Paradyne 3820"
  83.     speed 38400    :: must agree with the entry in Unix /etc/inittab
  84.     pat; pat 1 "OK"
  85.     putw "ATE1Q0\r"
  86.     if js0,cela echo "Setting Cellular"; put "AT&F6\r"; wait -f2
  87.     else put "AT&F\\N5\r"; wait -f2
  88.     if js0,aa echo "Unix Autoanswer"; put "AT &D2 &C1 V1 X6 S0=5 &T5 \\Q3 Q2 E0\r"
  89.     else put "AT&D2&C1V1X6S0=0&T5\\N1\\Q0\r"
  90.     wait -f2
  91.     put "AT&D2&C1&W\r"; wait -f2
  92.     return
  93.  
  94.